/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / cdl.elc.z / cdl.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 33 | 3a 35 38 3a 31 39 20 31 |an 14 03|:58:19 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 63 64 6c 2e 65 6c |19.0/lis|p/cdl.el|
|00000070| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000080| 6f 6e 20 31 39 2e 33 30 | 2e 37 30 2e 36 2e 0a 3b |on 19.30|.70.6..;|
|00000090| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000a0| 69 6f 6e 20 46 53 46 20 | 32 2e 31 30 0a 3b 3b 3b |ion FSF |2.10.;;;|
|000000b0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000c0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000d0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|000000e0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|000000f0| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000100| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000110| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000120| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000130| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000140| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000150| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|00000160| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000170| 76 65 72 73 69 6f 6e 20 | 22 31 39 2e 32 39 22 29 |version |"19.29")|
|00000180| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 60 |)).    (|error "`|
|00000190| 63 64 6c 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |cdl.el' |was comp|
|000001a0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001b0| 39 2e 32 39 20 6f 72 20 | 6c 61 74 65 72 22 29 29 |9.29 or |later"))|
|000001c0| 0a 0a 0a 23 40 36 38 20 | 52 75 6e 20 66 69 6c 65 |...#@68 |Run file|
|000001d0| 20 74 68 72 6f 75 67 68 | 20 6e 63 64 75 6d 70 20 | through| ncdump |
|000001e0| 61 6e 64 20 69 6e 73 65 | 72 74 20 72 65 73 75 6c |and inse|rt resul|
|000001f0| 74 20 69 6e 74 6f 20 62 | 75 66 66 65 72 20 61 66 |t into b|uffer af|
|00000200| 74 65 72 20 70 6f 69 6e | 74 2e 1f 0a 28 64 65 66 |ter poin|t...(def|
|00000210| 61 6c 69 61 73 20 27 63 | 64 6c 2d 67 65 74 2d 66 |alias 'c|dl-get-f|
|00000220| 69 6c 65 20 23 5b 28 66 | 69 6c 65 6e 61 6d 65 29 |ile #[(f|ilename)|
|00000230| 20 22 c0 c1 21 88 60 1a | c3 c4 c5 c6 c5 c7 0e 08 | "..!.`.|........|
|00000240| 21 25 88 5c 6e 62 88 29 | c0 c9 21 87 22 20 5b 6d |!%.\nb.)|..!." [m|
|00000250| 65 73 73 61 67 65 20 22 | 6e 63 64 75 6d 70 20 69 |essage "|ncdump i|
|00000260| 6e 20 70 72 6f 67 72 65 | 73 73 2e 2e 2e 22 20 73 |n progre|ss..." s|
|00000270| 74 61 72 74 20 63 61 6c | 6c 2d 70 72 6f 63 65 73 |tart cal|l-proces|
|00000280| 73 20 22 6e 63 64 75 6d | 70 22 20 6e 69 6c 20 74 |s "ncdum|p" nil t|
|00000290| 20 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d | expand-|file-nam|
|000002a0| 65 20 66 69 6c 65 6e 61 | 6d 65 20 22 6e 63 64 75 |e filena|me "ncdu|
|000002b0| 6d 70 20 69 6e 20 70 72 | 6f 67 72 65 73 73 2e 2e |mp in pr|ogress..|
|000002c0| 2e 64 6f 6e 65 22 5d 20 | 37 20 28 23 24 20 2e 20 |.done"] |7 (#$ . |
|000002d0| 34 35 36 29 20 22 66 43 | 44 46 20 66 69 6c 65 3a |456) "fC|DF file:|
|000002e0| 20 22 5d 29 0a 23 40 35 | 37 20 52 75 6e 20 72 65 | "]).#@5|7 Run re|
|000002f0| 67 69 6f 6e 20 74 68 72 | 6f 75 67 68 20 6e 63 67 |gion thr|ough ncg|
|00000300| 65 6e 20 61 6e 64 20 77 | 72 69 74 65 20 72 65 73 |en and w|rite res|
|00000310| 75 6c 74 73 20 69 6e 74 | 6f 20 61 20 66 69 6c 65 |ults int|o a file|
|00000320| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 64 |...(defa|lias 'cd|
|00000330| 6c 2d 70 75 74 2d 72 65 | 67 69 6f 6e 20 23 5b 28 |l-put-re|gion #[(|
|00000340| 66 69 6c 65 6e 61 6d 65 | 20 73 74 61 72 74 20 65 |filename| start e|
|00000350| 6e 64 29 20 22 c0 c1 21 | 88 c2 0b 5c 66 c5 c6 89 |nd) "..!|...\f...|
|00000360| 89 c7 c8 0e 09 21 26 08 | 88 c0 ca 21 87 22 20 5b |.....!&.|...!." [|
|00000370| 6d 65 73 73 61 67 65 20 | 22 6e 63 67 65 6e 20 69 |message |"ncgen i|
|00000380| 6e 20 70 72 6f 67 72 65 | 73 73 2e 2e 2e 22 20 63 |n progre|ss..." c|
|00000390| 61 6c 6c 2d 70 72 6f 63 | 65 73 73 2d 72 65 67 69 |all-proc|ess-regi|
|000003a0| 6f 6e 20 73 74 61 72 74 | 20 65 6e 64 20 22 6e 63 |on start| end "nc|
|000003b0| 67 65 6e 22 20 6e 69 6c | 20 22 2d 6f 22 20 65 78 |gen" nil| "-o" ex|
|000003c0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 66 |pand-fil|e-name f|
|000003d0| 69 6c 65 6e 61 6d 65 20 | 22 6e 63 67 65 6e 20 69 |ilename |"ncgen i|
|000003e0| 6e 20 70 72 6f 67 72 65 | 73 73 2e 2e 2e 64 6f 6e |n progre|ss...don|
|000003f0| 65 22 5d 20 31 30 20 28 | 23 24 20 2e 20 37 34 36 |e"] 10 (|#$ . 746|
|00000400| 29 20 22 46 4e 65 77 20 | 43 44 46 20 66 69 6c 65 |) "FNew |CDF file|
|00000410| 3a 20 5c 6e 72 22 5d 29 | 0a                      |: \nr"])|.       |
+--------+-------------------------+-------------------------+--------+--------+